<%

Function randomico(minimo, maximo)

		Dim menor, maior, sorteado
		RANDOMIZE
		menor = minimo
		maior = maximo
		sorteado = Int((maior-menor+1)*Rnd+menor)
		
		randomico = sorteado

End Function
%>